I am using a conditional binomial model to determine what factors
impact movement decisions of territorial common ravens during the winter
in Yellowstone. I will look at if various predictors impact if a raven
decided to leaves its territory, and if it did, if it visit the Gardiner
hunting region or not. The largest predictors here revolve around food
availability of carrion created by human hunting activity and
wolves.
There are two data sets, one for each part of the conditional
model. The first one includes all of the days during the Yellowstone
Wolf Project winter study periods (Nov 15- Dec 15 & Mar 1 - Mar 30)
because my main predictor is the presence of wolf kills within a ravens
territory and the carcass data is most reliable for that period of time
due to GPS collar fix rates.
The second data set includes all winter from the start of the hunting
season (varies by year, but always in the last week of October) to the
end of March (end of late winter study). I can include these other
periods because I am no longer considering wolf kills as a predictor
because the raven at this point in the conditional model has already
decided to leave its territory. This also allows me to have more data on
days with low or no hunter gutpile availability from January and
February.
For both data sets, all data points are excluded if that raven had less
than 5 GPS points and the movement decisions was the negative for that
binomial model (didn’t leaves its territory or didn’t visit the hunting
area).
## dataset for part 1 of conditional model
ws_model_data <- read_csv(here("data", "clean", "commute_data.csv")) %>%
#restricting to only winter study months
filter((paste(month, day, sep = "-") >= "11-15" &
paste(month, day, sep = "-") <= "12-15") |
(paste(month, day, sep = "-") >= "3-1" &
paste(month, day, sep = "-") <= "3-30")) %>%
#removing days when there is less than 5 GPS point
#unless the result is Jardine
filter(!(n_point < 5 & terr_bin == F)) %>%
#only columns used in model
dplyr::select(terr_bin, raven_id, active_kill, bms_window_1, hunt_season, take_high_low, avg_terr_kill_density, dist2nentrance,
study_period, temp_max, snow_depth, prop_group_left_terr) %>%
#making sure rows are complete
filter(complete.cases(.))
## dataset for part 2 of conditional model
hunt_model_data <- read_csv(here("data", "clean", "commute_data.csv")) %>%
#only have days ravens decided to leave territory
filter(terr_bin == 1) %>%
#removing days when there is less than 5 GPS point
#unless the result is Jardine
filter(!(n_point < 5 & hunt_bin == F)) %>%
#only columns used in model
dplyr::select(hunt_bin, raven_id, active_kill, bms_window_1, hunt_season, take_high_low, avg_terr_kill_density, dist2nentrance, study_period, temp_max, snow_depth, prop_group_visit_hunt) %>%
#making sure rows are complete
filter(complete.cases(.))
The first part of the conditional model predicts if a raven will
leaves it territory or not.
DEPENDENT VARIABLE
terr_bin
1 = left territory
0 = stayed on territory
I ended up trying a three different covariates to represent the
hunting element of the model because I don’t know how ravens view the
resoruce or the thresholds for availability that they consider viable.
For examples, 10 and 15 kills are probably basically the same thing. Its
a lot of potential food. But where is that line drawn. Is 1 and 5
different enough? What about 5 and 10? Or maybe 1 is all it takes. Or
just hunters trying. It also allows for a little flexibility without the
most precise daily data for hunting.
1. bms_window: The most specific is the a measure of the available
biomass.
mod_terr_bms1 <- glmer(terr_bin ~ (1|raven_id) + active_kill * scale(bms_window_1) + scale(avg_terr_kill_density) +
scale(dist2nentrance) + study_period * scale(temp_max) + scale(snow_depth) + scale(prop_group_left_terr),
data = ws_model_data,
family = "binomial",
nAGQ = 40,
control = cntrl)
summary(mod_terr_bms1)
## Generalized linear mixed model fit by maximum likelihood (Adaptive
## Gauss-Hermite Quadrature, nAGQ = 40) [glmerMod]
## Family: binomial ( logit )
## Formula: terr_bin ~ (1 | raven_id) + active_kill * scale(bms_window_1) +
## scale(avg_terr_kill_density) + scale(dist2nentrance) + study_period *
## scale(temp_max) + scale(snow_depth) + scale(prop_group_left_terr)
## Data: ws_model_data
## Control: cntrl
##
## AIC BIC logLik -2*log(L) df.resid
## 1132.9 1198.9 -554.5 1108.9 1790
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -7.3531 0.1352 0.2159 0.3718 2.6428
##
## Random effects:
## Groups Name Variance Std.Dev.
## raven_id (Intercept) 2.276 1.509
## Number of obs: 1802, groups: raven_id, 20
##
## Fixed effects:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 2.79322 0.40079 6.969 3.19e-12 ***
## active_killTRUE -1.33767 0.37331 -3.583 0.000339 ***
## scale(bms_window_1) -0.06588 0.13339 -0.494 0.621367
## scale(avg_terr_kill_density) -0.63913 0.63114 -1.013 0.311223
## scale(dist2nentrance) -0.69849 0.53051 -1.317 0.187961
## study_periodlate -0.60689 0.20106 -3.018 0.002540 **
## scale(temp_max) -0.19326 0.11531 -1.676 0.093748 .
## scale(snow_depth) 0.22528 0.13894 1.621 0.104944
## scale(prop_group_left_terr) -0.05813 0.09620 -0.604 0.545692
## active_killTRUE:scale(bms_window_1) 0.22272 0.26801 0.831 0.405957
## study_periodlate:scale(temp_max) 0.06657 0.16542 0.402 0.687354
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) ac_TRUE s(__1) scl(v___) scl(2) stdy_p scl(t_) scl(s_)
## actv_klTRUE -0.044
## scl(bms__1) -0.038 -0.095
## scl(vg_t__) 0.148 -0.021 0.055
## scl(dst2nn) 0.144 0.007 0.064 0.681
## study_prdlt -0.288 -0.055 0.126 0.003 0.002
## scl(tmp_mx) 0.013 0.030 -0.163 -0.008 -0.004 -0.077
## scl(snw_dp) 0.130 0.121 -0.615 -0.013 -0.009 -0.504 0.229
## scl(prp___) -0.045 -0.015 -0.073 -0.023 -0.043 0.162 0.064 -0.112
## a_TRUE:(__1 0.012 -0.183 -0.267 -0.040 -0.036 0.023 -0.004 -0.031
## stdy_pr:(_) 0.013 0.036 0.139 0.008 0.006 -0.124 -0.657 -0.020
## scl(p___) a_TRUE:
## actv_klTRUE
## scl(bms__1)
## scl(vg_t__)
## scl(dst2nn)
## study_prdlt
## scl(tmp_mx)
## scl(snw_dp)
## scl(prp___)
## a_TRUE:(__1 -0.012
## stdy_pr:(_) 0.038 -0.061
mod_terr_hseason <- glmer(terr_bin ~ (1|raven_id) + active_kill * hunt_season + scale(avg_terr_kill_density) +
scale(dist2nentrance) + study_period * scale(temp_max) + scale(snow_depth) + scale(prop_group_left_terr),
data = ws_model_data,
family = "binomial",
nAGQ = 40,
control = cntrl)
summary(mod_terr_hseason)
## Generalized linear mixed model fit by maximum likelihood (Adaptive
## Gauss-Hermite Quadrature, nAGQ = 40) [glmerMod]
## Family: binomial ( logit )
## Formula:
## terr_bin ~ (1 | raven_id) + active_kill * hunt_season + scale(avg_terr_kill_density) +
## scale(dist2nentrance) + study_period * scale(temp_max) +
## scale(snow_depth) + scale(prop_group_left_terr)
## Data: ws_model_data
## Control: cntrl
##
## AIC BIC logLik -2*log(L) df.resid
## 1133.4 1199.4 -554.7 1109.4 1790
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -7.1605 0.1367 0.2181 0.3681 2.5718
##
## Random effects:
## Groups Name Variance Std.Dev.
## raven_id (Intercept) 2.224 1.491
## Number of obs: 1802, groups: raven_id, 20
##
## Fixed effects:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 2.68034 0.46221 5.799 6.67e-09 ***
## active_killTRUE -0.81534 1.18694 -0.687 0.49213
## hunt_seasonTRUE 0.13737 0.32137 0.427 0.66904
## scale(avg_terr_kill_density) -0.61177 0.62391 -0.981 0.32682
## scale(dist2nentrance) -0.67552 0.52478 -1.287 0.19801
## study_periodlate -0.63420 0.21802 -2.909 0.00363 **
## scale(temp_max) -0.21185 0.11878 -1.784 0.07449 .
## scale(snow_depth) 0.20990 0.10634 1.974 0.04839 *
## scale(prop_group_left_terr) -0.05862 0.09633 -0.609 0.54281
## active_killTRUE:hunt_seasonTRUE -0.51944 1.23333 -0.421 0.67363
## study_periodlate:scale(temp_max) 0.09450 0.16745 0.564 0.57252
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) ac_TRUE h_TRUE scl(v___) scl(2) stdy_p scl(t_) scl(s_)
## actv_klTRUE -0.131
## hnt_ssnTRUE -0.513 0.194
## scl(vg_t__) 0.128 -0.015 0.000
## scl(dst2nn) 0.125 -0.001 -0.002 0.681
## study_prdlt -0.018 -0.014 -0.406 -0.003 -0.003
## scl(tmp_mx) 0.157 -0.041 -0.295 -0.001 0.005 0.074
## scl(snw_dp) 0.074 0.018 0.096 0.017 0.030 -0.533 0.124
## scl(prp___) -0.030 0.028 -0.024 -0.021 -0.041 0.175 0.057 -0.218
## a_TRUE:_TRU 0.127 -0.952 -0.209 0.007 0.004 0.006 0.043 -0.018
## stdy_pr:(_) -0.096 0.037 0.216 0.001 -0.003 -0.214 -0.673 0.093
## scl(p___) a_TRUE:
## actv_klTRUE
## hnt_ssnTRUE
## scl(vg_t__)
## scl(dst2nn)
## study_prdlt
## scl(tmp_mx)
## scl(snw_dp)
## scl(prp___)
## a_TRUE:_TRU -0.040
## stdy_pr:(_) 0.041 -0.025
mod_terr_hl <- glmer(terr_bin ~ (1|raven_id) + active_kill * take_high_low + scale(avg_terr_kill_density) +
scale(dist2nentrance) + study_period * scale(temp_max) + scale(snow_depth) + scale(prop_group_left_terr),
data = ws_model_data,
family = "binomial",
nAGQ = 40,
control = cntrl)
summary(mod_terr_hl)
## Generalized linear mixed model fit by maximum likelihood (Adaptive
## Gauss-Hermite Quadrature, nAGQ = 40) [glmerMod]
## Family: binomial ( logit )
## Formula:
## terr_bin ~ (1 | raven_id) + active_kill * take_high_low + scale(avg_terr_kill_density) +
## scale(dist2nentrance) + study_period * scale(temp_max) +
## scale(snow_depth) + scale(prop_group_left_terr)
## Data: ws_model_data
## Control: cntrl
##
## AIC BIC logLik -2*log(L) df.resid
## 1134.9 1211.9 -553.5 1106.9 1788
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -7.5048 0.1357 0.2173 0.3673 2.5310
##
## Random effects:
## Groups Name Variance Std.Dev.
## raven_id (Intercept) 2.251 1.5
## Number of obs: 1802, groups: raven_id, 20
##
## Fixed effects:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 2.50444 0.45426 5.513 3.52e-08 ***
## active_killTRUE -1.48592 0.51432 -2.889 0.00386 **
## take_high_lowlow 0.38673 0.26200 1.476 0.13993
## take_high_lowzero 0.22664 0.39430 0.575 0.56544
## scale(avg_terr_kill_density) -0.56199 0.62823 -0.895 0.37102
## scale(dist2nentrance) -0.62829 0.52833 -1.189 0.23436
## study_periodlate -0.45089 0.24922 -1.809 0.07042 .
## scale(temp_max) -0.19262 0.11886 -1.621 0.10512
## scale(snow_depth) 0.29864 0.12083 2.472 0.01345 *
## scale(prop_group_left_terr) -0.05390 0.09690 -0.556 0.57804
## active_killTRUE:take_high_lowlow 0.27917 0.75322 0.371 0.71090
## active_killTRUE:take_high_lowzero 0.66466 1.27787 0.520 0.60297
## study_periodlate:scale(temp_max) 0.07227 0.16956 0.426 0.66997
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
All 3 models are pretty competitive.
AIC(mod_terr_bms1) #equally good
## [1] 1132.919
AIC(mod_terr_hseason) #equally good
## [1] 1133.404
AIC(mod_terr_hl)
## [1] 1134.918
It actually didn’t matter which hunting covariate I used because they
were all not significant. Instead, as expected, in most of the models
the presence of an active kill within 1 km of a ravens territory lead to
less chance of the raven leaving its territory. The interaction term in
all 3 models was not significant, meaning that the presence of an active
kill did not change the impact hunter gutpile availability had on raven
movement.
The binary hunting season covariate in the second model did lead to a
change in the significance of the active kill covariate. This is because
the added interaction term (with active wolf kill) had a high standard
error, even though the effect size and direction were basically the
same.
The average kill density in a ravens territory did not impact movement
decisions. So they don’t consider the past or prior knowledge of their
territory and are only responding to more immediate stimuli. This makes
sense when considering that a high productivity territory is still
unlikely to have a kill made each day. Then their response to no
immediate kills in their territory is to leave, which is still a gamble
since you don’t know what the food situation will be like in Gardiner or
elsewhere; however, in most cases those human sites will still be less
of a gamble than a raven in a high productivity territory.
The study period being early or late winter has a negative effect in the
late winter in all 3 of the models (even though it isn’t significant in
model 3), which follows my prediction about how pre-breeding behaviors
would impact raven movement by keeping them on territory more
often.
The maximum daily temperature had a negative effect in all three models,
although it was borderline in 2 of the models. Higher temperatures
lowered the chance of a raven leaving its territory. A good reason for
this might be that the colder days require more energy to maintain body
temperature, so a more guaranteed food sources is taken. Then on warmer
days when temperature regulation is easier, they don’t risk as much by
staying on their territory. An interaction between temperature and study
period was tested to tell if ravens were influenced by temperature
differently at different times of year and the effect was insignificant
and is not included here.
Snow depth had the same effect found from the Walker et al. study that
greater snow depth increased the chances of the raven being in
anthropogenic hunting areas (leaving their territory). This isn’t a
perfect conclusion though because even though they leave their
territory, they could still be staying in the national park. However, it
does agree with the alternative logic that higher snow depth leads to
ungulate migration and more potential hunting availability. So this
might be a cue that they are not following or attempting to gain
knowledge about actual hunting availability (hence a lack of effect for
the actual hunting covariate) and are instead following proxies for it.
snow depth and the hunting biomass coavriates have a high correlation in
the model output. This is likely because the biomass calculation takes
into account elk migration timing, which is heavily influenced by snow
depth.
One super interesting thing to note is that I ran this model with the
group travel covariate before adding the temperature, and the group
travel stopped being significant after the addition of the temperature.
So it would seem like they don’t take into account the other ravens that
much and instead are all responding to the same stimuli.
Here is the bootstrapped parameter confidence intervals for model 1
using the biomass estimate as the hunting covariate.
The second part of the conditional model predicts if, when a raven
left its territory, if it visited the Gardiner hunting region.
DEPENDENT VARIABLE
hunt_bin
1 = visited hunting
0 = visited other place
Again, I compared models using the same three hunting covariates.
However, this time I removed the wolf kill and study period
covariates.
I don’t consider wolf kills anymore because, at this point in the model,
the raven has already left its territory. It is true that a raven could
travel to a wolf kill outside of its territory, but I am interested in
the decision to travel to the Gardiner hunting region, so those other
options don’t matter as much. That includes other cities and towns. This
part of the conditional model acknowledges their presence, but isn’t
really interested in them specifically.
I don’t consider study period anymore because, again, in this part of
the conditional model the raven has already decided to leave its
territory. The breeding behavior hypothesis was that ravens would want
to stay on their territory more during late winter to
perform breeding behaviors. This doesn’t matter anymore here.
1. bms_window: The most specific is the a measure of the available
biomass.
mod_hunt_bms1 <- glmer(hunt_bin ~ (1|raven_id) + scale(bms_window_1) + scale(dist2nentrance) +
scale(prop_group_visit_hunt) + scale(temp_max) + scale(snow_depth),
data = hunt_model_data,
family = "binomial",
nAGQ = 40,
control = cntrl)
summary(mod_hunt_bms1)
## Generalized linear mixed model fit by maximum likelihood (Adaptive
## Gauss-Hermite Quadrature, nAGQ = 40) [glmerMod]
## Family: binomial ( logit )
## Formula:
## hunt_bin ~ (1 | raven_id) + scale(bms_window_1) + scale(dist2nentrance) +
## scale(prop_group_visit_hunt) + scale(temp_max) + scale(snow_depth)
## Data: hunt_model_data
## Control: cntrl
##
## AIC BIC logLik -2*log(L) df.resid
## 3481.0 3524.9 -1733.5 3467.0 3904
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -12.5605 -0.1822 0.2984 0.5594 3.1345
##
## Random effects:
## Groups Name Variance Std.Dev.
## raven_id (Intercept) 3.834 1.958
## Number of obs: 3911, groups: raven_id, 20
##
## Fixed effects:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 0.46902 0.46927 0.999 0.31757
## scale(bms_window_1) 0.60513 0.10813 5.597 2.19e-08 ***
## scale(dist2nentrance) -2.15348 0.50516 -4.263 2.02e-05 ***
## scale(prop_group_visit_hunt) 0.50689 0.05041 10.055 < 2e-16 ***
## scale(temp_max) -0.27843 0.04717 -5.902 3.58e-09 ***
## scale(snow_depth) -0.13865 0.05102 -2.718 0.00658 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) s(__1) scl(2) s(___) scl(t_)
## scl(bms__1) 0.015
## scl(dst2nn) 0.059 -0.068
## scl(prp___) 0.007 -0.315 -0.016
## scl(tmp_mx) -0.014 -0.200 0.018 0.143
## scl(snw_dp) -0.013 -0.045 -0.012 0.036 0.396
mod_hunt_hseason <- glmer(hunt_bin ~ (1|raven_id) + hunt_season + scale(dist2nentrance) +
scale(prop_group_visit_hunt) + scale(temp_max) + scale(snow_depth),
data = hunt_model_data,
family = "binomial",
nAGQ = 40,
control = cntrl)
summary(mod_hunt_hseason)
## Generalized linear mixed model fit by maximum likelihood (Adaptive
## Gauss-Hermite Quadrature, nAGQ = 40) [glmerMod]
## Family: binomial ( logit )
## Formula: hunt_bin ~ (1 | raven_id) + hunt_season + scale(dist2nentrance) +
## scale(prop_group_visit_hunt) + scale(temp_max) + scale(snow_depth)
## Data: hunt_model_data
## Control: cntrl
##
## AIC BIC logLik -2*log(L) df.resid
## 3463.7 3507.6 -1724.9 3449.7 3904
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -7.7099 -0.1474 0.2925 0.5361 2.9754
##
## Random effects:
## Groups Name Variance Std.Dev.
## raven_id (Intercept) 3.548 1.884
## Number of obs: 3911, groups: raven_id, 20
##
## Fixed effects:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 0.085022 0.453716 0.187 0.851
## hunt_seasonTRUE 0.804120 0.102174 7.870 3.54e-15 ***
## scale(dist2nentrance) -2.128294 0.485719 -4.382 1.18e-05 ***
## scale(prop_group_visit_hunt) 0.470581 0.051169 9.197 < 2e-16 ***
## scale(temp_max) -0.315563 0.048724 -6.477 9.38e-11 ***
## scale(snow_depth) -0.006388 0.051114 -0.125 0.901
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) h_TRUE scl(2) s(___) scl(t_)
## hnt_ssnTRUE -0.093
## scl(dst2nn) 0.067 -0.021
## scl(prp___) 0.044 -0.354 -0.025
## scl(tmp_mx) 0.015 -0.274 0.017 0.165
## scl(snw_dp) -0.027 0.175 -0.006 -0.063 0.322
mod_hunt_hl <- glmer(hunt_bin ~ (1|raven_id) + take_high_low + scale(dist2nentrance) +
scale(prop_group_visit_hunt) + scale(temp_max) + scale(snow_depth),
data = hunt_model_data,
family = "binomial",
nAGQ = 40,
control = cntrl)
summary(mod_hunt_hl)
## Generalized linear mixed model fit by maximum likelihood (Adaptive
## Gauss-Hermite Quadrature, nAGQ = 40) [glmerMod]
## Family: binomial ( logit )
## Formula: hunt_bin ~ (1 | raven_id) + take_high_low + scale(dist2nentrance) +
## scale(prop_group_visit_hunt) + scale(temp_max) + scale(snow_depth)
## Data: hunt_model_data
## Control: cntrl
##
## AIC BIC logLik -2*log(L) df.resid
## 3462.7 3512.9 -1723.3 3446.7 3903
##
## Scaled residuals:
## Min 1Q Median 3Q Max
## -6.9852 -0.1466 0.2924 0.5393 2.9563
##
## Random effects:
## Groups Name Variance Std.Dev.
## raven_id (Intercept) 3.579 1.892
## Number of obs: 3911, groups: raven_id, 20
##
## Fixed effects:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) 1.09745 0.46733 2.348 0.0189 *
## take_high_lowlow -0.38472 0.16680 -2.306 0.0211 *
## take_high_lowzero -1.00728 0.14107 -7.140 9.31e-13 ***
## scale(dist2nentrance) -2.14450 0.48788 -4.396 1.10e-05 ***
## scale(prop_group_visit_hunt) 0.46171 0.05127 9.006 < 2e-16 ***
## scale(temp_max) -0.33422 0.04959 -6.740 1.58e-11 ***
## scale(snow_depth) -0.06928 0.05765 -1.202 0.2294
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Correlation of Fixed Effects:
## (Intr) tk_hgh_lwl tk_hgh_lwz scl(2) s(___) scl(t_)
## tk_hgh_lwlw -0.203
## tk_hgh_lwzr -0.233 0.688
## scl(dst2nn) 0.057 0.018 0.028
## scl(prp___) -0.052 0.084 0.313 -0.023
## scl(tmp_mx) -0.082 0.193 0.318 0.019 0.177
## scl(snw_dp) -0.079 0.454 0.187 0.002 -0.017 0.373
Of the 3 models, the hunting season and high/low hunting predictors are equal.
AIC(mod_hunt_bms1)
## [1] 3480.992
AIC(mod_hunt_hseason) #equally good
## [1] 3463.712
AIC(mod_hunt_hl) #equally good
## [1] 3462.684
In all of the models the hunting covariate was significant and
followed the trend of more hunting, more likely the raven is to visit
the hunting area.
The distance to the hunting area was also always significant with ravens
holding territories closer to the hunting area visiting more frequently.
Makes sense that the less time and energy it takes to get there makes it
more worth checking out the area. For some ravens that are really close,
it also gives them the advantage of potentially being able to hear
gunshots that indicate potential hunter success.
The proportion of other ravens that are visiting the hunting area has a
positive effect. When considered in conjunction with the effect of the
group covariate in part 1 of the conditional model: ravens aren’t
influenced by other ravens when deciding to leave their territory;
however, if they do choose to leave they are often visiting the same
destinations as the rest of the ravens that leave their territories. So
if they choose to leave, which is a decision based on abiotic factors
like weather and available local food, they are utilizing social cues
and shared information.
The maximum daily temperature had a negative effect in all three models,
lowering the chance of a raven visiting the hunting area if it decided
to leave its territory during warmer weather.
The effect of snow depth is uncertain from these models. Only model 1
found a significant effect and the other two models were not significant
with different effect directions (although both almost 0).
Here is the bootstrapped parameter confidence intervals for model 1
using the biomass estimate as the hunting covariate.
Here is an visual example of three different ravens with territories
and different distances from the Gardiner hunting region area and their
movement decisions.
Of the three ravens, the orange raven with its territory at Old Faithful
is the only one that doesn’t visit the hunting area which is why it
looks the same in both maps. Instead, its trips are consistently to the
closer town of West Yellowstone, presumably to feed on human refuse. It
probably makes this decision because the time investment to travel up to
the Gardiner hunting region is not worth it when an alternative location
with consistent foraging is nearby. Even though purple is a similar
distance to West Yellowstone where orange visits frequently, it chooses
to travel to the north instead. It probably makes this choice because
unlike orange, the time investment is about the same between the two
locations. And Gardiner has a much higher level of hunting offering a
potentially better foraging opportunity while also have human refuse as
a back up. Almost all trips north for purple resulted in a visit to the
Gardiner hunting region, and the few remaining points up north are
probably because of a missed fix in the hunting area.Most of the time
when the purple chooses to leave its territory, but not visit the
Gardiner hunting region, it is actually still hanging out around its
territory but just outside of the 1 kilometer around the 90% minimum
convex polygon I am currently considering their territory. Green is so
close to the Gardiner hunting region that it only makes sense that it
visits so often, given that the flight time for that trip is less than
30 minutes. On days that it leaves its territory but does not visit the
Gardiner hunting region it visits various areas in the northern range
inside the park and even ventures eastward a few times during October
before it gets too cold. One super interesting thing to note is that you
would think that there would be more obvious instances of ravens
visiting wolf kills outside their territories which would show up in map
B as having left their territory, but not visiting the hunting area.
However, this almost never occurs. Or at least isn’t obvious as a large
cluster. I think this is because either the carcass is close enough to
their territory that I still consider the raven as having not left. Or,
ravens will frequently visit wolf kills outside their territory,
followed by a trip to the Gardiner hunting area. This second explanation
actually lines up with some of my experiences seeing a group of ravens
fly into a carcass sometime in the morning, only to leave not long
after.
Here is a heatmap of the raven GPS points from November and March
along with a polygon denoting the areaused to determine if a raven
attempted to search for hunter created resources during the MTFWp rifle
hunting season and the tribal bison hunt (hereafter Gardiner hunting
region). The Gardiner hunting region is the space 5 km from all roads
within 10 km of the national park boundary. This space was used is a
high density hunting area in close proximity to the northern range of
the park. The 5 km buffer around roads was used as a reasonable distance
for a hunter to travel. There is certainly successful hunting attempts
in are surrounding this polygon, but the relative number of those will
be low compared to hunting within the polygon.
This polygon does include the town of Gardiner along with the local
landfill and water treatment ponds that ravens have been documented
using as locations to forage since I made the assumption that a raven
visiting this area would always attempt to find hunter offal, even if
unsuccessful. Only 26% of trips to the Gardiner hunting region during
the hunting season resulted in a trip to the landfill and water
treatment pond.
Here is a map of the relevant
polygons used including the study area of Yellowstone National Park, the
northern range of Yellowstone, and raven territories calculated using
90% minimum convex polygons. All raven used for this study have
territories within the boundary of the national park. In 2 cases where a
territorial pair were both GPS tagged, only the female was used since
the GPS fix rate was higher due to better battery levels resulting from
less coverage of the solar panel during the winter.